vbslib

(for Internet Explorer)

Function AddLastOfFileName( BasePath as string, AddName as string ) as string

ファイルパスの最後（拡張子より前）に、文字列を追加します。または拡張子を変更します。

追加前のファイルパス

追加する文字列

追加後のファイルパス

AddLastOfFileName( "file.txt", "123" ) = "file123.txt"

AddName に拡張子があったら、返り値の拡張子は、AddName の拡張子に変わります。

AddLastOfFileName( "file.txt", "123.html" ) = "file123.html"

AddLastOfFileName( "file.txt", ".html" ) = "file.html"

→ T_Path.vbs # [T_AddLastOfFileName]

→ StrT_addLastOfFileName (clib)

AddLastOfFileName( "file.txt", "." ) = "file"

拡張子を無くす

AddLastOfFileName( path1, "."+g_fs.GetExtensionName( path2 ) )

拡張子を合わせる

Path の最後を区切り記号にします

Sub CutLastOfFileName( in_out_Path as string, LastStr as string, Opt as integer )

ファイル名（拡張子を除く）の最後に、指定した文字列があれば削除します。

Dim s
s = "File_Add.txt"
CutLastOfFileName s, "_Add", Emtpy
'// s = "File.txt"

呼び出し前の in_out_Path

呼び出し後の in_out_Path

（入出力）パスやファイル名を含む文字列

（出力）削除する内容の文字列

拡張子も含めて削除するときは、

を使ってください。

→ T_Str.vbs # [T_StrComp]

Function StrCompLastOfFileName( Path as string, LastStr as string, Opt as integer ) as integer

ファイル名（拡張子を除く）の末尾を比較します。

比較されるファイル名またはパス

Path の末尾と比較する文字列

LastStr 引数の値

Path の末尾 = LastStr なら、0

→ T_Str.vbs # [T_StrComp]

Function CutFragmentInURL( in_URL as string )

ファイルパスや URL に（# から始まる）フラグメントがあれば削除します。

Assert CutFragmentInURL( "C:\File.txt#2" ) = "C:\File.txt"

（入出力）パスやファイル名を含む文字列

（出力）削除する内容の文字列

Function GetTagJumpParams( PathAndFragment as string ) as TagJumpParams

タグジャンプ形式の文字列（パス＋行番号）を分解します。

Set jumps = GetTagJumpParams( "C:\folder\file1.txt(100)" )
'// jumps.Path = "C:\folder\file1.txt"
'// jumps.LineNum = 100
'// IsEmpty( jumps.Keyword )

→ T_EditorDiff_Manually.vbs

Class TagJumpParams
Public Path '// パス or ""、フル・パスとは限りません
Public LineNum '// as integer or Empty
Public Keyword '// as string or Empty
End Class

Set jumps = GetTagJumpParams( "file1.txt#Key" )
'// jumps.Path = "file1.txt"
'// jumps.Keyword = "Key"
'// IsEmpty( jumps.LineNum )

タグジャンプ形式の文字列の詳細

GetTagJumpParams( "C:\folder\file1.txt(100)" ).Path

Set jumps = GetTagJumpParams( "file1.txt" )
'// jumps.Path = "file1.txt"
'// IsEmpty( jumps.LineNum )
'// IsEmpty( jumps.Keyword )

Set jumps = GetTagJumpParams( "file${>#}1.txt" )
'// jumps.Path = "file#1.txt"
'// IsEmpty( jumps.LineNum )
'// IsEmpty( jumps.Keyword )

${>#} 以外の ${ } は
そのまま

Set jumps = GetTagJumpParams( "file1.txt#${\n}" )
'// jumps.Path = "file1.txt"
'// IsEmpty( jumps.LineNum )
'// jumps.Keyword = "${\n}"

${>#} は、# 文字になり、
# で Keyword の区切り
にはならない

Function GetTagJumpPath( PathAndLine as string ) as string

タグジャンプ形式の文字列（パス＋行番号）から、パスを取り出す。

path = GetTagJumpPath( "C:\folder\file1.txt(100)" )

path には、"C:\folder\file1.txt" が入ります。

→ T_Path.vbs # GetTagJumpPath

廃止予定です。 GetTagJumpParams を使ってください。

Function GetTagJumpLine( PathAndLine as string ) as integer

タグジャンプ形式の文字列（パス＋行番号）から、行番号を取り出す。

line = GetTagJumpPath( "C:\folder\file1.txt(100)" )

line には、100 が入ります。

→ T_Path.vbs # GetTagJumpLine

PathAndLine に行番号が無いときは、0 が返ります。

廃止予定です。 GetTagJumpParams を使ってください。

Function IsMovablePathToPath( SrcPath as string, DstPath as string, IsDstFolder as boolean )
as boolean

ファイルやフォルダーのパス SrcPath と DstPath の間で、移動ができるかどうかを返します。

移動元のファイルやフォルダーのパス

移動先のファイルやフォルダーのパス

DstPath がフォルダーかどうか

移動ができるかどうか

→ T_Path.vbs # [T_IsMovablePathToPath]

ドライブが異なっていたり、ネットワークドライブとローカルドライブの違いがあると、移動できません。

ファイルのパスか、ファイルの内容に相当する文字列の抽象。
一部の vbslib の関数の引数にファイル名の代わりに指定することができるファイル・パス・オブジェクトです。
文字列や、スクリプトの中のコメントなどを、ファイルとして扱います。

次の関数のファイル名の代わりに指定することができます。

Set root = LoadXML( new_FilePathForString( "<Root></Root>" ), Empty )

次の関数で FilePathClass のオブジェクトを生成することができます。

T_LoadXML_PathObject

文字列をファイルとして扱います

スクリプトの中のコメントをファイルとして扱います

入力ファイル・パスに相当する文字列を返します

次のプロパティがあります。
FilePathClass のオブジェクトを ReadFile 関数に渡し、その返り値を使ってファイルの内容を処理するコード
は共通にできるでしょう。

テキスト・ファイルの内容

ファイル・パス

Set root = LoadXML( "sample.xml" ), Empty )

Set root = LoadXML( new_FilePathForFileInScript( Empty ), Empty )

ファイルの内容、または、それに相当する文字列を返します

Set root = LoadXML( new_FilePathForString( "<Root></Root>" ), Empty )

Function new_FilePathForString( Text as string ) as FilePathClass

文字列をファイルとして扱うように、ファイル名の代わりに指定するオブジェクトを返します。

ファイルの内容

ファイル名の代わりに指定するオブジェクト

T_LoadXML_PathObject

Function new_FilePathForFileInScript( Parameter as Empty ) as FilePathClass

スクリプトの中のコメントをファイルとして扱うように、ファイル名の代わりに指定するオブジェクトを返します。

VBScript ファイルのパス、# 可能、Empty =

ファイル名の代わりに指定するオブジェクト

'------------------------------------------------------------[FileInScript.xml]
'<Root>
'<Tag out_path="_Out.txt"/>
'</Root>
'-----------------------------------------------------------[/FileInScript.xml]

Sub Main( Opt, AppKey )
CommandA_App AppKey, new_FilePathForFileInScript( Empty )
End Sub

'--- start of vbslib include ------------------------------
：（vbslib をインクルードして main を呼び出すコード）

メイン・スクリプト・ファイル（WScript.ScriptFullName）に書かれた [FileInScript.*] がある行の次の行から、
[/FileInScript.*] がある行の前の行までを、ファイルの内容として扱います。 * は任意の文字列です。

スクリプト・ファイルの中にある XML データを CommandA に渡します。

→ T_FileInScript.vbs

T_new_FilePathForFileInScript

Sub CommandA_App( AppKey, Path )
Set root = LoadXML( Path, Empty )

out_path = root.selectSingleNode( "./Tag" ).getAttribute( "out_path" )
Set w_=AppKey.NewWritable( out_path ).Enable()
End Sub

上記スクリプトから呼び出す CommandA_App 関数の例：

ファイルの内容（XML データ）の部分の行頭には、' が必要です。

Path に、URL のように # を付けると、スクリプト・ファイルの中の行末にあるタグを検索して、
その中のデータをファイルとして扱います。

path_object = new_FilePathForFileInScript( "#FileInScript.xml" )

Function GetFilePathString( Path as string or FilePathClass ) as string

入力ファイル・パスに相当する文字列を返します。

ファイル・パス・オブジェクト、または、入力ファイル・パス

入力ファイル・パスに相当する文字列

返り値は、データが存在するファイル・パスを表示するため、データ・ファイルがあるフォルダーの
パスを取得するために使うことができます。

など、ファイルの内容にアクセスする関数に渡すと、期待と異なるデータを入力

の返り値を、GetFilePath の

してしまうことがあります。たとえば、

引数に指定したときは、スクリプトの中のコメントではなく、スクリプト・ファイル全体を入力します。

Path 引数が文字列なら、その文字列を返します。

なら、WScript.ScriptFullName を返します。

ワイルドカードを使って、ファイルパスを変更します。

Function ArrayFromWildcard( WildcardPath as string ) as PathDictionaryClass of Nothing

ワイルドカードを展開します。サブフォルダーも検索します。

ワイルドカードを含むパス。フォルダー指定も可。配列可

For Each step_path In ArrayFromWildcard( "data\*" ).FilePaths
echo step_path
Next

"*", "*.txt", "file*", "folder\*.txt", Array( "Fo\*.txt", "Fo\*.log" ),
"folder", "Debug\", "Fo\*.txt | Fo\*.log", "Fo\*.txt, Fo\*.log",
"NoWildcard.txt", "folder\*", "fo\*\file.txt", "*\file.txt", ".\file.txt"

→ ファイル一覧

高速なフォルダ一覧

ファイル名やフォルダー名でソートされます。

ファイル・パスの配列を使ってコピーする

T_ArrayFromWildcard1

が使えます。例： "folder\*\back_up.txt", "folder\.\*.txt"

PathDictionaryClass のオブジェクトを指定したら、そのオブジェクトを返します。

ワイルドカードが、ファイル名やフォルダー名に相当する部分（もっとも右の \ の右側）に
あれば、サブ・フォルダーも検索します。

が優先されます。

ただし、WildcardPath 引数に指定した

サブフォルダー記号が指定されていない（ .\ も *\ もない）ときは、

指定したパスのファイルやフォルダーがないときはエラーにします（サブフォルダー
記号 * や、ワイルドカードが無いときのみ）。

ファイルに対する処理の場合（ArrayFromWildcard の返り値の FilePaths プロパティ
などが参照される場合）、フォルダーのパスを指定すると、サブ・フォルダーにある
ファイルも検索します。

BasePath プロパティが指定フォルダーになる ArrayFromWildcard

と違い、BasePath プロパティは、カレントフォルダーになります。

path = GetFirst( ArrayFromWildcard( "Sub\File*.txt" ).FilePaths )

ワイルドカードを１つだけ展開します。

→ T_Wildcard.vbs # T_Wildcard_Speed

最も速いのは、

を使う方法です。

最も扱いやすいのは、

を使う方法です。

中間的なのは、

を使う方法です。

Sub ExpandWildcard( WildcardPath as string, Flags as integer,
out_Folder as string, out_StepPaths as array of string )

ワイルドカードを展開します。サブ・フォルダーも検索します。

（出力） wildcard が含まれるフォルダのフル・パス

（出力）ワイルドカードにマッチした相対パスの配列

ワイルドカードを含むパス。フォルダ指定も可。配列可

Set c = g_VBS_Lib

ExpandWildcard "data\*", c.File or c.SubFolder, folder, step_paths
For Each step_path In step_paths
If InStr( step_path, "\_setup_" ) = 0 Then '// 除外する場合
echo GetFullPath( step_path, folder ) '// g_fs.BuildPath は使わないこと
End If
Next

フラグの論理和

→ ファイル一覧

高速なフォルダ一覧

g_Vers("ExpandWildcard_Sort") = True

下記のように設定してから、ExpandWildcard を呼び出すと、ファイル名やフォルダー名で
ソートされます。少し遅くなりますが、列挙されるファイルの順番がどのような環境でも

→ T_Wildcard.vbs # Main

下記の定数の or。下記の c は、g_VBS_Lib の返り値。